0 DIMA(73):FORH=0TO73:READA(H):NEXT:PRINT"[147](W)+(C) SVEN BASTROP":INPUT"NAME";N$
1 OPEN1,8,4,N$+",P,R":O=-2:INPUT"AUTOSTART";Q$:ON-(Q$="N")GOTO4:FORM=196TO2048
2 A=PEEK(M):GOSUB19:NEXT:POKEQ,198:POKEQ+1,0:POKEQ+2,4:POKE4531,147:POKE4532,82
3 POKE4533,213:POKE4534,13:FORH=0TO88:POKE4412+H,0:POKE5004+H,32:NEXT:N=N-2
4 INPUT"SYS-ZEILE";S$:ON-(S$="N")GOTO8:INPUT"RESET AUS";D$:ON-(D$="N")GOTO6
5 FORH=0TO73:GOSUB18:NEXT:GOTO7:DATA1,8
6 FORH=0TO27:GOSUB18:NEXT:A=40:GOSUB19:FORH=54TO64:GOSUB18:NEXT:DATA11,8,199,7
7 A=0:GOSUB19:GOSUB14:GOSUB14:O=O-2:GOTO9:DATA158,50,48,54,49,,,,165,174
8 FORH=0TO1:GOSUB14:GOSUB19:NEXT:DATA133,45,165,175,133,46
9 FORH=0TO3:GOSUB14:ON-(ST=66)GOTO15:GOSUB19:NEXT:DATA169,234,141,40,3,169,128
10 GOSUB14:IFA=32THEN10:DATA133,56,162,8,189,64,8,157,,128,202,16,247,32,163,253
11 GOSUB19:ON-(A=0)GOTO9:ON-(A=34)GOTO13:ON-(A<>143)GOTO10:DATA32,83,228,32,91
12 GOSUB14:ON-(A>0)GOTO12:GOTO11:DATA255,88,169,74,133,43,32,51,165,32,89,166,76
13 GOSUB14:ON-(A=0)GOTO11:GOSUB19:ON-(A=34)GOTO10:GOTO13:DATA174,167,41,8,188
14 GET#1,A$:A=ASC(A$+CHR$(0)):A$=CHR$(A):O=O+1:RETURN:DATA254,195,194,205,56,48
15 GOSUB17:OPEN1,8,2,"@:N/"+N$+",P,W":FORH=1TON:PRINT#1,CHR$(PEEK(Q-1+H));:NEXT
16 GOSUB17:O=O-1:PRINT"ALT:";O:PRINT"NEU:";N:PRINTN/O*100"% SIND UEBRIG!":END
17 POKE5948,(-(M=0)*PEEK(5948)):CLOSE1:OPEN1,8,15,"I":CLOSE1:RETURN
18 A=A(H):GOSUB19:RETURN:REM            ======== WRITTEN BY SVEN BASTROP =======
19 Q=4096:POKEQ+N,A:N=N+1:RETURN:REM    ====== CONTACT ME UNDER 04423/6962 =====